home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / the peacock variations < prev    next >
Text File  |  1999-06-15  |  785b  |  33 lines
  1. Category: kang
  2. Title: the Peacock variations
  3. Copyright: na
  4. Author: kangaroo@asan.com
  5. Filename: PEACOCKV.8BF
  6.  
  7. R:put(((sin(m*val(0,80,255)*40/M)-cos(d*val(0,80,255)*40/M))*(sin(cos(X-m*ctl(1)*40/M)-sin(Y-d*ctl(2)*40/M))))/+70,1),put(get(1)*200/-100/-100-val(3,-100,100),0),get(0)&256?100+ctl(5)-(get(0)+180+ctl(4)):get(0)+c-90
  8.  
  9. G:put(get(1)*200/-100/-100-val(3,-100,100),0),get(0)&256?100+ctl(6)-(get(0)+180+ctl(4)):get(0)+c-90
  10.  
  11. B:put(get(1)*200/-100/-100-val(3,-100,100),0),get(0)&256?100+ctl(7)-(get(0)+180+ctl(4)):get(0)+c-90
  12.  
  13. A:a
  14.  
  15. ctl[0]: variation 1
  16. ctl[1]: variation 2
  17. ctl[2]: variation 3
  18. ctl[3]: mass
  19. ctl[4]: shade
  20. ctl[5]: red
  21. ctl[6]: green
  22. ctl[7]: blue
  23.  
  24. val[0]: 56
  25. val[1]: 55
  26. val[2]: 35
  27. val[3]: 154
  28. val[4]: 60
  29. val[5]: 180
  30. val[6]: 207
  31. val[7]: 233
  32.  
  33.